home *** CD-ROM | disk | FTP | other *** search
/ Games of Daze / Infomagic - Games of Daze (Summer 1995) (Disc 1 of 2).iso / x2ftp / msdos / docs / pascsrc / timedat4.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-01-15  |  390 b   |  13 lines
  1. program Get_Time_And_Date;           (* For TURBO Pascal 4.0 only *)
  2.  
  3. uses Dos;
  4.  
  5. var Year,Month,Day,Weekday        : word;
  6.     Hour,Minute,Second,Hundredths : word;
  7.  
  8. begin
  9.    GetTime(Hour, Minute, Second, Hundredths);
  10.    GetDate(Year, Month, Day, Weekday);
  11.    Writeln('The date is ',Month:2,'/',Day:2,'/',Year);
  12.    Writeln('The time is ',Hour:2,':',Minute:2,':',Second:2);
  13. end.